home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / Ado / ADOTransPro1U1.dfm < prev    next >
Encoding:
Text File  |  1999-11-03  |  3.0 KB  |  124 lines
  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 107
  4.   Width = 788
  5.   Height = 480
  6.   Caption = 'ADO Transaction Processing Example'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 780
  20.     Height = 113
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object DBNavigator1: TDBNavigator
  24.       Left = 16
  25.       Top = 80
  26.       Width = 240
  27.       Height = 25
  28.       DataSource = DataSource1
  29.       TabOrder = 0
  30.     end
  31.     object btnBeginTrans: TButton
  32.       Left = 272
  33.       Top = 80
  34.       Width = 75
  35.       Height = 25
  36.       Caption = 'BeginTrans'
  37.       TabOrder = 1
  38.       OnClick = btnBeginTransClick
  39.     end
  40.     object btnCommitTrans: TButton
  41.       Left = 360
  42.       Top = 80
  43.       Width = 75
  44.       Height = 25
  45.       Caption = 'Commit Trans'
  46.       TabOrder = 2
  47.       OnClick = btnCommitTransClick
  48.     end
  49.     object btnRollbackTrans: TButton
  50.       Left = 448
  51.       Top = 80
  52.       Width = 75
  53.       Height = 25
  54.       Caption = 'Rollback Trans'
  55.       TabOrder = 3
  56.       OnClick = btnRollbackTransClick
  57.     end
  58.     object Memo1: TMemo
  59.       Left = 1
  60.       Top = 1
  61.       Width = 778
  62.       Height = 72
  63.       Align = alTop
  64.       Lines.Strings = (
  65.         
  66.           'This example uses an ODBC Data Source Name called "Northwind DSN' +
  67.           '". This DSN should point at the Northwind.mdb Access database.'
  68.         ''
  69.         
  70.           'Use the 3 buttons to test the transaction processing facilities ' +
  71.           'of the ODBC Access driver via ADO.')
  72.       TabOrder = 4
  73.     end
  74.     object Button1: TButton
  75.       Left = 536
  76.       Top = 80
  77.       Width = 145
  78.       Height = 25
  79.       Caption = 'Show Transaction Support'
  80.       TabOrder = 5
  81.       OnClick = Button1Click
  82.     end
  83.   end
  84.   object DBGrid1: TDBGrid
  85.     Left = 0
  86.     Top = 113
  87.     Width = 780
  88.     Height = 340
  89.     Align = alClient
  90.     DataSource = DataSource1
  91.     TabOrder = 1
  92.     TitleFont.Charset = DEFAULT_CHARSET
  93.     TitleFont.Color = clWindowText
  94.     TitleFont.Height = -11
  95.     TitleFont.Name = 'MS Sans Serif'
  96.     TitleFont.Style = []
  97.   end
  98.   object ADOConnection1: TADOConnection
  99.     Connected = True
  100.     ConnectionString = 
  101.       'Provider=MSDASQL.1;Persist Security Info=False;Data Source=North' +
  102.       'wind DSN;Connect Timeout=15;Extended Properties="DSN=Northwind D' +
  103.       'SN;DBQ=C:\Program Files\Microsoft Office\Office\Samples\Northwin' +
  104.       'd.mdb;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=' +
  105.       '5;";Locale Identifier=2057'
  106.     LoginPrompt = False
  107.     Left = 632
  108.     Top = 16
  109.   end
  110.   object ADOTable1: TADOTable
  111.     Active = True
  112.     Connection = ADOConnection1
  113.     CursorType = ctStatic
  114.     TableName = 'Customers'
  115.     Left = 712
  116.     Top = 16
  117.   end
  118.   object DataSource1: TDataSource
  119.     DataSet = ADOTable1
  120.     Left = 552
  121.     Top = 16
  122.   end
  123. end
  124.